<?php
/*
  +----------------------------------------------------------------------+
  | PHP Version 5                                                        |
  +----------------------------------------------------------------------+
  | Copyright (c) 1997-2004 The PHP Group                                |
  +----------------------------------------------------------------------+
  | This source file is subject to version 3.0 of the PHP license,       |
  | that is bundled with this package in the file LICENSE, and is        |
  | available through the world-wide-web at the following url:           |
  | http://www.php.net/license/3_0.txt.                                  |
  | If you did not receive a copy of the PHP license and are unable to   |
  | obtain it through the world-wide-web, please send a note to          |
  | license@php.net so we can mail you a copy immediately.               |
  +----------------------------------------------------------------------+
  | Author:  Harun Yayli <harunyayli at gmail.com>                       |
  +----------------------------------------------------------------------+
*/

$VERSION = '$Id: memcache.php,v 1.1.2.3 2008/08/28 18:07:54 mikl Exp $';

define ( 'ADMIN_USERNAME', 'memcache' ); // Admin Username
define ( 'ADMIN_PASSWORD', 'password' ); // Admin Password
define ( 'DATE_FORMAT', 'Y/m/d H:i:s' );
define ( 'GRAPH_SIZE', 200 );
define ( 'MAX_ITEM_DUMP', 50 );

$MEMCACHE_SERVERS [] = $_GET['host']; // add more as an array
//$MEMCACHE_SERVERS [] = '192.168.1.5:11213'; // add more as an array
//$MEMCACHE_SERVERS [] = '192.168.1.5:11212'; // add more as an array
//$MEMCACHE_SERVERS [] = '192.168.1.5:11213'; // add more as an array
//$MEMCACHE_SERVERS [] = '192.168.1.5:11311'; // add more as an array
//$MEMCACHE_SERVERS[] = 'mymemcache-server2:11211'; // add more as an array


////////// END OF DEFAULT CONFIG AREA /////////////////////////////////////////////////////////////


/////////////////// Password protect ////////////////////////////////////////////////////////////////
//if (! isset ( $_SERVER ['PHP_AUTH_USER'] ) || ! isset ( $_SERVER ['PHP_AUTH_PW'] ) || $_SERVER ['PHP_AUTH_USER'] != ADMIN_USERNAME || $_SERVER ['PHP_AUTH_PW'] != ADMIN_PASSWORD) {
//	Header ( "WWW-Authenticate: Basic realm=\"Memcache Login\"" );
//	Header ( "HTTP/1.0 401 Unauthorized" );
//
//	echo <<<EOB
//				<html><body>
//				<h1>Rejected!</h1>
//				<big>Wrong Username or Password!</big>
//				</body></html>
//EOB;
//	exit ();
//}

///////////MEMCACHE FUNCTIONS /////////////////////////////////////////////////////////////////////


function sendMemcacheCommands($command) {
	global $MEMCACHE_SERVERS;
	$result = array ();

	foreach ( $MEMCACHE_SERVERS as $server ) {
		$strs = explode ( ':', $server );
		$host = $strs [0];
		$port = $strs [1];
		$result [$server] = sendMemcacheCommand ( $host, $port, $command );
	}
	return $result;
}
function sendMemcacheCommand($server, $port, $command) {

	$s = @fsockopen ( $server, $port );
	if (! $s) {
		die ( "Cant connect to:" . $server . ':' . $port );
	}

	fwrite ( $s, $command . "\r\n" );

	$buf = '';
	while ( (! feof ( $s )) ) {
		$buf .= fgets ( $s, 256 );
		if (strpos ( $buf, "END\r\n" ) !== false) { // stat says end
			break;
		}
		if (strpos ( $buf, "DELETED\r\n" ) !== false || strpos ( $buf, "NOT_FOUND\r\n" ) !== false) { // delete says these
			break;
		}
		if (strpos ( $buf, "OK\r\n" ) !== false) { // flush_all says ok
			break;
		}
	}
	fclose ( $s );
	return parseMemcacheResults ( $buf );
}
function parseMemcacheResults($str) {

	$res = array ();
	$lines = explode ( "\r\n", $str );
	$cnt = count ( $lines );
	for($i = 0; $i < $cnt; $i ++) {
		$line = $lines [$i];
		$l = explode ( ' ', $line, 3 );
		if (count ( $l ) == 3) {
			$res [$l [0]] [$l [1]] = $l [2];
			if ($l [0] == 'VALUE') { // next line is the value
				$res [$l [0]] [$l [1]] = array ();
				list ( $flag, $size ) = explode ( ' ', $l [2] );
				$res [$l [0]] [$l [1]] ['stat'] = array ('flag' => $flag, 'size' => $size );
				$res [$l [0]] [$l [1]] ['value'] = $lines [++ $i];
			}
		} elseif ($line == 'DELETED' || $line == 'NOT_FOUND' || $line == 'OK') {
			return $line;
		}
	}
	return $res;

}

function dumpCacheSlab($server, $slabId, $limit) {
	list ( $host, $port ) = explode ( ':', $server );
	$resp = sendMemcacheCommand ( $host, $port, 'stats cachedump ' . $slabId . ' ' . $limit );

	return $resp;

}

function flushServer($server) {
	list ( $host, $port ) = explode ( ':', $server );
	$resp = sendMemcacheCommand ( $host, $port, 'flush_all' );
	return $resp;
}
function getCacheItems() {
	$items = sendMemcacheCommands ( 'stats items' );
	$serverItems = array ();
	$totalItems = array ();
	foreach ( $items as $server => $itemlist ) {
		$serverItems [$server] = array ();
		$totalItems [$server] = 0;
		if (! isset ( $itemlist ['STAT'] )) {
			continue;
		}

		$iteminfo = $itemlist ['STAT'];

		foreach ( $iteminfo as $keyinfo => $value ) {
			if (preg_match ( '/items\:(\d+?)\:(.+?)$/', $keyinfo, $matches )) {
				$serverItems [$server] [$matches [1]] [$matches [2]] = $value;
				if ($matches [2] == 'number') {
					$totalItems [$server] += $value;
				}
			}
		}
	}
	return array ('items' => $serverItems, 'counts' => $totalItems );
}
function getMemcacheStats($total = true) {
	$resp = sendMemcacheCommands ( 'stats' );
	if ($total) {
		$res = array ();
		foreach ( $resp as $server => $r ) {
			foreach ( $r ['STAT'] as $key => $row ) {
				if (! isset ( $res [$key] )) {
					$res [$key] = null;
				}
				switch ($key) {
					case 'pid' :
						$res ['pid'] [$server] = $row;
						break;
					case 'uptime' :
						$res ['uptime'] [$server] = $row;
						break;
					case 'time' :
						$res ['time'] [$server] = $row;
						break;
					case 'version' :
						$res ['version'] [$server] = $row;
						break;
					case 'pointer_size' :
						$res ['pointer_size'] [$server] = $row;
						break;
					case 'rusage_user' :
						$res ['rusage_user'] [$server] = $row;
						break;
					case 'rusage_system' :
						$res ['rusage_system'] [$server] = $row;
						break;
					case 'curr_items' :
						$res ['curr_items'] += $row;
						break;
					case 'total_items' :
						$res ['total_items'] += $row;
						break;
					case 'bytes' :
						$res ['bytes'] += $row;
						break;
					case 'curr_connections' :
						$res ['curr_connections'] += $row;
						break;
					case 'total_connections' :
						$res ['total_connections'] += $row;
						break;
					case 'connection_structures' :
						$res ['connection_structures'] += $row;
						break;
					case 'cmd_get' :
						$res ['cmd_get'] += $row;
						break;
					case 'cmd_set' :
						$res ['cmd_set'] += $row;
						break;
					case 'get_hits' :
						$res ['get_hits'] += $row;
						break;
					case 'get_misses' :
						$res ['get_misses'] += $row;
						break;
					case 'evictions' :
						$res ['evictions'] += $row;
						break;
					case 'bytes_read' :
						$res ['bytes_read'] += $row;
						break;
					case 'bytes_written' :
						$res ['bytes_written'] += $row;
						break;
					case 'limit_maxbytes' :
						$res ['limit_maxbytes'] += $row;
						break;
					case 'threads' :
						$res ['rusage_system'] [$server] = $row;
						break;
				}
			}
		}
		return $res;
	}
	return $resp;
}

//////////////////////////////////////////////////////


//
// don't cache this page
//
header ( "Cache-Control: no-store, no-cache, must-revalidate" ); // HTTP/1.1
header ( "Cache-Control: post-check=0, pre-check=0", false );
header ( "Pragma: no-cache" ); // HTTP/1.0


function duration($ts) {
	global $time;
	$years = ( int ) ((($time - $ts) / (7 * 86400)) / 52.177457);
	$rem = ( int ) (($time - $ts) - ($years * 52.177457 * 7 * 86400));
	$weeks = ( int ) (($rem) / (7 * 86400));
	$days = ( int ) (($rem) / 86400) - $weeks * 7;
	$hours = ( int ) (($rem) / 3600) - $days * 24 - $weeks * 7 * 24;
	$mins = ( int ) (($rem) / 60) - $hours * 60 - $days * 24 * 60 - $weeks * 7 * 24 * 60;
	$str = '';
	if ($years == 1)
		$str .= "$years year, ";
	if ($years > 1)
		$str .= "$years years, ";
	if ($weeks == 1)
		$str .= "$weeks week, ";
	if ($weeks > 1)
		$str .= "$weeks weeks, ";
	if ($days == 1)
		$str .= "$days day,";
	if ($days > 1)
		$str .= "$days days,";
	if ($hours == 1)
		$str .= " $hours hour and";
	if ($hours > 1)
		$str .= " $hours hours and";
	if ($mins == 1)
		$str .= " 1 minute";
	else
		$str .= " $mins minutes";
	return $str;
}

// create graphics
//
function graphics_avail() {
	return extension_loaded ( 'gd' );
}

function bsize($s) {
	foreach ( array ('', 'K', 'M', 'G' ) as $i => $k ) {
		if ($s < 1024)
			break;
		$s /= 1024;
	}
	return sprintf ( "%5.1f %sBytes", $s, $k );
}

// create menu entry
function menu_entry($ob, $title) {
	global $PHP_SELF;
	if ($ob == $_GET ['op']) {
		return "<li><a class=\"child_active\" href=\"$PHP_SELF&op=$ob\">$title</a></li>";
	}
	return "<li><a class=\"active\" href=\"$PHP_SELF&op=$ob\">$title</a></li>";
}

function getHeader() {
	$header = <<<EOB
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head><title>MEMCACHE INFO</title>
<style type="text/css"><!--
body { background:white; font-size:100.01%; margin:0; padding:0; }
body,p,td,th,input,submit { font-size:0.8em;font-family:arial,helvetica,sans-serif; }
* html body   {font-size:0.8em}
* html p      {font-size:0.8em}
* html td     {font-size:0.8em}
* html th     {font-size:0.8em}
* html input  {font-size:0.8em}
* html submit {font-size:0.8em}
td { vertical-align:top }
a { color:black; font-weight:none; text-decoration:none; }
a:hover { text-decoration:underline; }
div.content { padding:1em 1em 1em 1em; position:absolute; width:97%; z-index:100; }

h1.memcache { background:rgb(153,153,204); margin:0; padding:0.5em 1em 0.5em 1em; }
* html h1.memcache { margin-bottom:-7px; }
h1.memcache a:hover { text-decoration:none; color:rgb(90,90,90); }
h1.memcache span.logo {
	background:rgb(119,123,180);
	color:black;
	border-right: solid black 1px;
	border-bottom: solid black 1px;
	font-style:italic;
	font-size:1em;
	padding-left:1.2em;
	padding-right:1.2em;
	text-align:right;
	display:block;
	width:130px;
	}
h1.memcache span.logo span.name { color:white; font-size:0.7em; padding:0 0.8em 0 2em; }
h1.memcache span.nameinfo { color:white; display:inline; font-size:0.4em; margin-left: 3em; }
h1.memcache div.copy { color:black; font-size:0.4em; position:absolute; right:1em; }
hr.memcache {
	background:white;
	border-bottom:solid rgb(102,102,153) 1px;
	border-style:none;
	border-top:solid rgb(102,102,153) 10px;
	height:12px;
	margin:0;
	margin-top:1px;
	padding:0;
}

ol,menu { margin:1em 0 0 0; padding:0.2em; margin-left:1em;}
ol.menu li { display:inline; margin-right:0.7em; list-style:none; font-size:85%}
ol.menu a {
	background:rgb(153,153,204);
	border:solid rgb(102,102,153) 2px;
	color:white;
	font-weight:bold;
	margin-right:0em;
	padding:0.1em 0.5em 0.1em 0.5em;
	text-decoration:none;
	margin-left: 5px;
	}
ol.menu a.child_active {
	background:rgb(153,153,204);
	border:solid rgb(102,102,153) 2px;
	color:white;
	font-weight:bold;
	margin-right:0em;
	padding:0.1em 0.5em 0.1em 0.5em;
	text-decoration:none;
	border-left: solid black 5px;
	margin-left: 0px;
	}
ol.menu span.active {
	background:rgb(153,153,204);
	border:solid rgb(102,102,153) 2px;
	color:black;
	font-weight:bold;
	margin-right:0em;
	padding:0.1em 0.5em 0.1em 0.5em;
	text-decoration:none;
	border-left: solid black 5px;
	}
ol.menu span.inactive {
	background:rgb(193,193,244);
	border:solid rgb(182,182,233) 2px;
	color:white;
	font-weight:bold;
	margin-right:0em;
	padding:0.1em 0.5em 0.1em 0.5em;
	text-decoration:none;
	margin-left: 5px;
	}
ol.menu a:hover {
	background:rgb(193,193,244);
	text-decoration:none;
	}


div.info {
	background:rgb(204,204,204);
	border:solid rgb(204,204,204) 1px;
	margin-bottom:1em;
	}
div.info h2 {
	background:rgb(204,204,204);
	color:black;
	font-size:1em;
	margin:0;
	padding:0.1em 1em 0.1em 1em;
	}
div.info table {
	border:solid rgb(204,204,204) 1px;
	border-spacing:0;
	width:100%;
	}
div.info table th {
	background:rgb(204,204,204);
	color:white;
	margin:0;
	padding:0.1em 1em 0.1em 1em;
	}
div.info table th a.sortable { color:black; }
div.info table tr.tr-0 { background:rgb(238,238,238); }
div.info table tr.tr-1 { background:rgb(221,221,221); }
div.info table td { padding:0.3em 1em 0.3em 1em; }
div.info table td.td-0 { border-right:solid rgb(102,102,153) 1px; white-space:nowrap; }
div.info table td.td-n { border-right:solid rgb(102,102,153) 1px; }
div.info table td h3 {
	color:black;
	font-size:1.1em;
	margin-left:-0.3em;
	}
.td-0 a , .td-n a, .tr-0 a , tr-1 a {
    text-decoration:underline;
}
div.graph { margin-bottom:1em }
div.graph h2 { background:rgb(204,204,204);; color:black; font-size:1em; margin:0; padding:0.1em 1em 0.1em 1em; }
div.graph table { border:solid rgb(204,204,204) 1px; color:black; font-weight:normal; width:100%; }
div.graph table td.td-0 { background:rgb(238,238,238); }
div.graph table td.td-1 { background:rgb(221,221,221); }
div.graph table td { padding:0.2em 1em 0.4em 1em; }

div.div1,div.div2 { margin-bottom:1em; width:35em; }
div.div3 { position:absolute; left:40em; top:1em; width:580px; }
//div.div3 { position:absolute; left:37em; top:1em; right:1em; }

div.sorting { margin:1.5em 0em 1.5em 2em }
.center { text-align:center }
.aright { position:absolute;right:1em }
.right { text-align:right }
.ok { color:rgb(0,200,0); font-weight:bold}
.failed { color:rgb(200,0,0); font-weight:bold}

span.box {
	border: black solid 1px;
	border-right:solid black 2px;
	border-bottom:solid black 2px;
	padding:0 0.5em 0 0.5em;
	margin-right:1em;
}
span.green { background:#60F060; padding:0 0.5em 0 0.5em}
span.red { background:#D06030; padding:0 0.5em 0 0.5em }

div.authneeded {
	background:rgb(238,238,238);
	border:solid rgb(204,204,204) 1px;
	color:rgb(200,0,0);
	font-size:1.2em;
	font-weight:bold;
	padding:2em;
	text-align:center;
	}

input {
	background:rgb(153,153,204);
	border:solid rgb(102,102,153) 2px;
	color:white;
	font-weight:bold;
	margin-right:1em;
	padding:0.1em 0.5em 0.1em 0.5em;
	}
//-->
</style>
</head>
<body>
<div class="head">
	<h1 class="memcache">
		<span class="logo"><a href="http://pecl.php.net/package/memcache">memcache</a></span>
		<span class="nameinfo">memcache.php by <a href="http://livebookmark.net">Harun Yayli</a></span>
	</h1>
	<hr class="memcache">
</div>
<div class=content>
EOB;

	return $header;
}
function getFooter() {
	global $VERSION;
	$footer = '</div><!-- Based on apc.php ' . $VERSION . '--></body>
</html>
';

	return $footer;

}
function getMenu() {
	global $PHP_SELF;
	echo "<ol class=menu>";
	if ($_GET ['op'] != 4) {
		echo <<<EOB
    <li><a href="$PHP_SELF&op={$_GET['op']}">Refresh Data</a></li>
EOB;
	} else {
		echo <<<EOB
    <li><a href="$PHP_SELF&op=2}">Back</a></li>
EOB;
	}
	echo menu_entry ( 1, 'View Host Stats' ), menu_entry ( 2, 'Variables' );

	echo <<<EOB
	</ol>
	<br/>
EOB;
}

// TODO, AUTH


$_GET ['op'] = ! isset ( $_GET ['op'] ) ? '1' : $_GET ['op'];
$PHP_SELF = isset ( $_SERVER ['PHP_SELF'] ) ? htmlentities ( strip_tags ( $_SERVER ['PHP_SELF'], '' ) ) : '';

$PHP_SELF = $PHP_SELF . '?host='.$_GET['host'];
$time = time ();
// sanitize _GET


foreach ( $_GET as $key => $g ) {
	$_GET [$key] = htmlentities ( $g );
}

// singleout
// when singleout is set, it only gives details for that server.
if (isset ( $_GET ['singleout'] ) && $_GET ['singleout'] >= 0 && $_GET ['singleout'] < count ( $MEMCACHE_SERVERS )) {
	$MEMCACHE_SERVERS = array ($MEMCACHE_SERVERS [$_GET ['singleout']] );
}

// display images
if (isset ( $_GET ['IMG'] )) {
	$memcacheStats = getMemcacheStats ();
	$memcacheStatsSingle = getMemcacheStats ( false );

	if (! graphics_avail ()) {
		exit ( 0 );
	}

	function fill_box($im, $x, $y, $w, $h, $color1, $color2, $text = '', $placeindex = '') {
		global $col_black;
		$x1 = $x + $w - 1;
		$y1 = $y + $h - 1;

		imagerectangle ( $im, $x, $y1, $x1 + 1, $y + 1, $col_black );
		if ($y1 > $y)
			imagefilledrectangle ( $im, $x, $y, $x1, $y1, $color2 );
		else
			imagefilledrectangle ( $im, $x, $y1, $x1, $y, $color2 );
		imagerectangle ( $im, $x, $y1, $x1, $y, $color1 );
		if ($text) {
			if ($placeindex > 0) {

				if ($placeindex < 16) {
					$px = 5;
					$py = $placeindex * 12 + 6;
					imagefilledrectangle ( $im, $px + 90, $py + 3, $px + 90 - 4, $py - 3, $color2 );
					imageline ( $im, $x, $y + $h / 2, $px + 90, $py, $color2 );
					imagestring ( $im, 2, $px, $py - 6, $text, $color1 );

				} else {
					if ($placeindex < 31) {
						$px = $x + 40 * 2;
						$py = ($placeindex - 15) * 12 + 6;
					} else {
						$px = $x + 40 * 2 + 100 * intval ( ($placeindex - 15) / 15 );
						$py = ($placeindex % 15) * 12 + 6;
					}
					imagefilledrectangle ( $im, $px, $py + 3, $px - 4, $py - 3, $color2 );
					imageline ( $im, $x + $w, $y + $h / 2, $px, $py, $color2 );
					imagestring ( $im, 2, $px + 2, $py - 6, $text, $color1 );
				}
			} else {
				imagestring ( $im, 4, $x + 5, $y1 - 16, $text, $color1 );
			}
		}
	}

	function fill_arc($im, $centerX, $centerY, $diameter, $start, $end, $color1, $color2, $text = '', $placeindex = 0) {
		$r = $diameter / 2;
		$w = deg2rad ( (360 + $start + ($end - $start) / 2) % 360 );

		if (function_exists ( "imagefilledarc" )) {
			// exists only if GD 2.0.1 is avaliable
			imagefilledarc ( $im, $centerX + 1, $centerY + 1, $diameter, $diameter, $start, $end, $color1, IMG_ARC_PIE );
			imagefilledarc ( $im, $centerX, $centerY, $diameter, $diameter, $start, $end, $color2, IMG_ARC_PIE );
			imagefilledarc ( $im, $centerX, $centerY, $diameter, $diameter, $start, $end, $color1, IMG_ARC_NOFILL | IMG_ARC_EDGED );
		} else {
			imagearc ( $im, $centerX, $centerY, $diameter, $diameter, $start, $end, $color2 );
			imageline ( $im, $centerX, $centerY, $centerX + cos ( deg2rad ( $start ) ) * $r, $centerY + sin ( deg2rad ( $start ) ) * $r, $color2 );
			imageline ( $im, $centerX, $centerY, $centerX + cos ( deg2rad ( $start + 1 ) ) * $r, $centerY + sin ( deg2rad ( $start ) ) * $r, $color2 );
			imageline ( $im, $centerX, $centerY, $centerX + cos ( deg2rad ( $end - 1 ) ) * $r, $centerY + sin ( deg2rad ( $end ) ) * $r, $color2 );
			imageline ( $im, $centerX, $centerY, $centerX + cos ( deg2rad ( $end ) ) * $r, $centerY + sin ( deg2rad ( $end ) ) * $r, $color2 );
			imagefill ( $im, $centerX + $r * cos ( $w ) / 2, $centerY + $r * sin ( $w ) / 2, $color2 );
		}
		if ($text) {
			if ($placeindex > 0) {
				imageline ( $im, $centerX + $r * cos ( $w ) / 2, $centerY + $r * sin ( $w ) / 2, $diameter, $placeindex * 12, $color1 );
				imagestring ( $im, 4, $diameter, $placeindex * 12, $text, $color1 );

			} else {
				imagestring ( $im, 4, $centerX + $r * cos ( $w ) / 2, $centerY + $r * sin ( $w ) / 2, $text, $color1 );
			}
		}
	}
	$size = GRAPH_SIZE; // image size
	$image = imagecreate ( $size + 50, $size + 10 );

	$col_white = imagecolorallocate ( $image, 0xFF, 0xFF, 0xFF );
	$col_red = imagecolorallocate ( $image, 0xD0, 0x60, 0x30 );
	$col_green = imagecolorallocate ( $image, 0x60, 0xF0, 0x60 );
	$col_black = imagecolorallocate ( $image, 0, 0, 0 );

	imagecolortransparent ( $image, $col_white );

	switch ($_GET ['IMG']) {
		case 1 : // pie chart
			$tsize = $memcacheStats ['limit_maxbytes'];
			$avail = $tsize - $memcacheStats ['bytes'];
			$x = $y = $size / 2;
			$angle_from = 0;
			$fuzz = 0.000001;

			foreach ( $memcacheStatsSingle as $serv => $mcs ) {
				$free = $mcs ['STAT'] ['limit_maxbytes'] - $mcs ['STAT'] ['bytes'];
				$used = $mcs ['STAT'] ['bytes'];

				if ($free > 0) {
					// draw free
					$angle_to = ($free * 360) / $tsize;
					$perc = sprintf ( "%.2f%%", ($free * 100) / $tsize );

					fill_arc ( $image, $x, $y, $size, $angle_from, $angle_from + $angle_to, $col_black, $col_green, $perc );
					$angle_from = $angle_from + $angle_to;
				}
				if ($used > 0) {
					// draw used
					$angle_to = ($used * 360) / $tsize;
					$perc = sprintf ( "%.2f%%", ($used * 100) / $tsize );
					fill_arc ( $image, $x, $y, $size, $angle_from, $angle_from + $angle_to, $col_black, $col_red, '(' . $perc . ')' );
					$angle_from = $angle_from + $angle_to;
				}
			}

			break;

		case 2 : // hit miss


			$hits = ($memcacheStats ['get_hits'] == 0) ? 1 : $memcacheStats ['get_hits'];
			$misses = ($memcacheStats ['get_misses'] == 0) ? 1 : $memcacheStats ['get_misses'];
			$total = $hits + $misses;

			fill_box ( $image, 30, $size, 50, - $hits * ($size - 21) / $total, $col_black, $col_green, sprintf ( "%.1f%%", $hits * 100 / $total ) );
			fill_box ( $image, 130, $size, 50, - max ( 4, ($total - $hits) * ($size - 21) / $total ), $col_black, $col_red, sprintf ( "%.1f%%", $misses * 100 / $total ) );
			break;

	}
	header ( "Content-type: image/png" );
	imagepng ( $image );
	exit ();
}

echo getHeader ();
echo getMenu ();

switch ($_GET ['op']) {

	case 1 : // host stats
		$phpversion = phpversion ();
		$memcacheStats = getMemcacheStats ();
		$memcacheStatsSingle = getMemcacheStats ( false );

		$mem_size = $memcacheStats ['limit_maxbytes'];
		$mem_used = $memcacheStats ['bytes'];
		$mem_avail = $mem_size - $mem_used;
		$startTime = time () - array_sum ( $memcacheStats ['uptime'] );

		$curr_items = $memcacheStats ['curr_items'];
		$total_items = $memcacheStats ['total_items'];
		$hits = ($memcacheStats ['get_hits'] == 0) ? 1 : $memcacheStats ['get_hits'];
		$misses = ($memcacheStats ['get_misses'] == 0) ? 1 : $memcacheStats ['get_misses'];
		$sets = $memcacheStats ['cmd_set'];

		$req_rate = sprintf ( "%.2f", ($hits + $misses) / ($time - $startTime) );
		$hit_rate = sprintf ( "%.2f", ($hits) / ($time - $startTime) );
		$miss_rate = sprintf ( "%.2f", ($misses) / ($time - $startTime) );
		$set_rate = sprintf ( "%.2f", ($sets) / ($time - $startTime) );

		echo <<< EOB
		<div class="info div1"><h2>General Cache Information</h2>
		<table cellspacing=0><tbody>
		<tr class=tr-1><td class=td-0>PHP Version</td><td>$phpversion</td></tr>
EOB;
		echo "<tr class=tr-0><td class=td-0>Memcached Host" . ((count ( $MEMCACHE_SERVERS ) > 1) ? 's' : '') . "</td><td>";
		$i = 0;
		if (! isset ( $_GET ['singleout'] ) && count ( $MEMCACHE_SERVERS ) > 1) {
			foreach ( $MEMCACHE_SERVERS as $server ) {
				echo ($i + 1) . '. <a href="' . $PHP_SELF . '&singleout=' . $i ++ . '">' . $server . '</a><br/>';
			}
		} else {
			echo '1.' . $MEMCACHE_SERVERS [0];
		}
		if (isset ( $_GET ['singleout'] )) {
			echo '<a href="' . $PHP_SELF . '">(all servers)</a><br/>';
		}
		echo "</td></tr>\n";
		echo "<tr class=tr-1><td class=td-0>Total Memcache Cache</td><td>" . bsize ( $memcacheStats ['limit_maxbytes'] ) . "</td></tr>\n";

		echo <<<EOB
		</tbody></table>
		</div>

		<div class="info div1"><h2>Memcache Server Information</h2>
EOB;
		foreach ( $MEMCACHE_SERVERS as $server ) {
			echo '<table cellspacing=0><tbody>';
			echo '<tr class=tr-1><td class=td-1>' . $server . '</td><td><a href="' . $PHP_SELF . '&server=' . array_search ( $server, $MEMCACHE_SERVERS ) . '&op=6">[<b>Flush this server</b>]</a></td></tr>';
			echo '<tr class=tr-0><td class=td-0>Start Time</td><td>', date ( DATE_FORMAT, $memcacheStatsSingle [$server] ['STAT'] ['time'] - $memcacheStatsSingle [$server] ['STAT'] ['uptime'] ), '</td></tr>';
			echo '<tr class=tr-1><td class=td-0>Uptime</td><td>', duration ( $memcacheStatsSingle [$server] ['STAT'] ['time'] - $memcacheStatsSingle [$server] ['STAT'] ['uptime'] ), '</td></tr>';
			echo '<tr class=tr-0><td class=td-0>Memcached Server Version</td><td>' . $memcacheStatsSingle [$server] ['STAT'] ['version'] . '</td></tr>';
			echo '<tr class=tr-1><td class=td-0>Used Cache Size</td><td>', bsize ( $memcacheStatsSingle [$server] ['STAT'] ['bytes'] ), '</td></tr>';
			echo '<tr class=tr-0><td class=td-0>Total Cache Size</td><td>', bsize ( $memcacheStatsSingle [$server] ['STAT'] ['limit_maxbytes'] ), '</td></tr>';
			echo '</tbody></table>';
		}
		echo <<<EOB

		</div>
		<div class="graph div3"><h2>Host Status Diagrams</h2>
		<table cellspacing=0><tbody>
EOB;

		$size = 'width=' . (GRAPH_SIZE + 50) . ' height=' . (GRAPH_SIZE + 10);
		echo <<<EOB
		<tr>
		<td class=td-0>Cache Usage</td>
		<td class=td-1>Hits &amp; Misses</td>
		</tr>
EOB;

		echo graphics_avail () ? '<tr>' . "<td class=td-0><img alt=\"\" $size src=\"$PHP_SELF&IMG=1&" . (isset ( $_GET ['singleout'] ) ? 'singleout=' . $_GET ['singleout'] . '&' : '') . "$time\"></td>" . "<td class=td-1><img alt=\"\" $size src=\"$PHP_SELF&IMG=2&" . (isset ( $_GET ['singleout'] ) ? 'singleout=' . $_GET ['singleout'] . '&' : '') . "$time\"></td></tr>\n" : "", '<tr>', '<td class=td-0><span class="green box">&nbsp;</span>Free: ', bsize ( $mem_avail ) . sprintf ( " (%.1f%%)", $mem_avail * 100 / $mem_size ), "</td>\n", '<td class=td-1><span class="green box">&nbsp;</span>Hits: ', $hits . sprintf ( " (%.1f%%)", $hits * 100 / ($hits + $misses) ), "</td>\n", '</tr>', '<tr>', '<td class=td-0><span class="red box">&nbsp;</span>Used: ', bsize ( $mem_used ) . sprintf ( " (%.1f%%)", $mem_used * 100 / $mem_size ), "</td>\n", '<td class=td-1><span class="red box">&nbsp;</span>Misses: ', $misses . sprintf ( " (%.1f%%)", $misses * 100 / ($hits + $misses) ), "</td>\n";
		echo <<< EOB
	</tr>
	</tbody></table>
<br/>
	<div class="info"><h2>Cache Information</h2>
		<table cellspacing=0><tbody>
		<tr class=tr-0><td class=td-0>Current Items(total)</td><td>$curr_items ($total_items)</td></tr>
		<tr class=tr-1><td class=td-0>Hits</td><td>{$hits}</td></tr>
		<tr class=tr-0><td class=td-0>Misses</td><td>{$misses}</td></tr>
		<tr class=tr-1><td class=td-0>Request Rate (hits, misses)</td><td>$req_rate cache requests/second</td></tr>
		<tr class=tr-0><td class=td-0>Hit Rate</td><td>$hit_rate cache requests/second</td></tr>
		<tr class=tr-1><td class=td-0>Miss Rate</td><td>$miss_rate cache requests/second</td></tr>
		<tr class=tr-0><td class=td-0>Set Rate</td><td>$set_rate cache requests/second</td></tr>
		</tbody></table>
		</div>

EOB;

		break;

	case 2 : // variables


		$m = 0;
		$cacheItems = getCacheItems ();
		$items = $cacheItems ['items'];
		$totals = $cacheItems ['counts'];
		$maxDump = MAX_ITEM_DUMP;
		foreach ( $items as $server => $entries ) {

			echo <<< EOB

			<div class="info"><table cellspacing=0><tbody>
			<tr><th colspan="2">$server</th></tr>
			<tr><th>Slab Id</th><th>Info</th></tr>
EOB;

			foreach ( $entries as $slabId => $slab ) {
				$dumpUrl = $PHP_SELF . '&op=2&server=' . (array_search ( $server, $MEMCACHE_SERVERS )) . '&dumpslab=' . $slabId;
				echo "<tr class=tr-$m>", "<td class=td-0><center>", '<a href="', $dumpUrl, '">', $slabId, '</a>', "</center></td>", "<td class=td-last><b>Item count:</b> ", $slab ['number'], '<br/><b>Age:</b>', duration ( $time - $slab ['age'] ), '<br/> <b>Evicted:</b>', ((isset ( $slab ['evicted'] ) && $slab ['evicted'] == 1) ? 'Yes' : 'No');
				if ((isset ( $_GET ['dumpslab'] ) && $_GET ['dumpslab'] == $slabId) && (isset ( $_GET ['server'] ) && $_GET ['server'] == array_search ( $server, $MEMCACHE_SERVERS ))) {
					echo "<br/><b>Items: item</b><br/>";
					$items = dumpCacheSlab ( $server, $slabId, $slab ['number'] );
					// maybe someone likes to do a pagination here :)
					$i = 1;
					foreach ( $items ['ITEM'] as $itemKey => $itemInfo ) {
						$itemInfo = trim ( $itemInfo, '[ ]' );

						echo '<a href="', $PHP_SELF, '&op=4&server=', (array_search ( $server, $MEMCACHE_SERVERS )), '&key=', base64_encode ( $itemKey ) . '">', $itemKey, '</a>';
						if ($i ++ % 10 == 0) {
							echo '<br/>';
						} elseif ($i != $slab ['number'] + 1) {
							echo ',';
						}
					}
				}

				echo "</td></tr>";
				$m = 1 - $m;
			}
			echo <<<EOB
			</tbody></table>
			</div><hr/>
EOB;
		}
		break;

		break;

	case 4 : //item dump
		if (! isset ( $_GET ['key'] ) || ! isset ( $_GET ['server'] )) {
			echo "No key set!";
			break;
		}
		// I'm not doing anything to check the validity of the key string.
		// probably an exploit can be written to delete all the files in key=base64_encode("\n\r delete all").
		// somebody has to do a fix to this.
		$theKey = htmlentities ( base64_decode ( $_GET ['key'] ) );

		$theserver = $MEMCACHE_SERVERS [( int ) $_GET ['server']];
		list ( $h, $p ) = explode ( ':', $theserver );
		$r = sendMemcacheCommand ( $h, $p, 'get ' . $theKey );
		echo <<<EOB
        <div class="info"><table cellspacing=0><tbody>
			<tr><th>Server<th>Key</th><th>Value</th><th>Delete</th></tr>
EOB;
		echo "<tr><td class=td-0>", $theserver, "</td><td class=td-0>", $theKey, " <br/>flag:", $r ['VALUE'] [$theKey] ['stat'] ['flag'], " <br/>Size:", bsize ( $r ['VALUE'] [$theKey] ['stat'] ['size'] ), "</td><td>", chunk_split ( $r ['VALUE'] [$theKey] ['value'], 40 ), "</td>", '<td><a href="', $PHP_SELF, '&op=5&server=', ( int ) $_GET ['server'], '&key=', base64_encode ( $theKey ), "\">Delete</a></td>", "</tr>";
		echo <<<EOB
			</tbody></table>
			</div><hr/>
EOB;
		break;
	case 5 : // item delete
		if (! isset ( $_GET ['key'] ) || ! isset ( $_GET ['server'] )) {
			echo "No key set!";
			break;
		}
		$theKey = htmlentities ( base64_decode ( $_GET ['key'] ) );
		$theserver = $MEMCACHE_SERVERS [( int ) $_GET ['server']];
		list ( $h, $p ) = explode ( ':', $theserver );
		$r = sendMemcacheCommand ( $h, $p, 'delete ' . $theKey );
		echo 'Deleting ' . $theKey . ':' . $r;
		break;

	case 6 : // flush server
		$theserver = $MEMCACHE_SERVERS [( int ) $_GET ['server']];
		$r = flushServer ( $theserver );
		echo 'Flush  ' . $theserver . ":" . $r;
		break;
}
echo getFooter ();

?>